<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
'作者：山林客（ah_bill）
'博客：http://ruizhinet.blog.163.com
'网站：http://www.ruizhinet.cn
'本信息不会影响您网站的正常访问，请保留

Dim RZ_IN
RZ_IN=1
%>
<!--#include file="conn.inc.asp" -->
<!--#include file="client_inc/common.function.asp" -->
<!--#include file="client_inc/common.class.asp" -->
<!--#Include file="client_inc/sqlsecure.asp"-->
<!--#include file="asp/default.asp" -->
<!--#include file="asp/articlelist.asp" -->
<!--#include file="asp/productlist.asp" -->
<!--#include file="asp/photolist.asp" -->
<!--#include file="asp/guestbooklist.asp" -->
<!--#include file="asp/guestbookshow.asp" -->
<!--#include file="asp/typeshow.asp" -->
<!--#include file="asp/articleshow.asp" -->
<!--#include file="asp/productshow.asp" -->
<!--#include file="asp/photoshow.asp" -->
<!--#include file="asp/speciallist.asp" -->
<!--#include file="asp/specialshow.asp" -->
<!--#include file="asp/joblist.asp" -->
<!--#include file="asp/jobshow.asp" -->
<!--#include file="asp/friendlink.asp" -->
<!--#include file="asp/commentshow.asp" -->
<!--#include file="asp/map.asp" -->

<%
CheckRefresh()
If app("rz_state")=0 Then
	response.write("网站维护中……")
	response.end
End If 
Dim process
process=S_RZPARAM.Process
Select Case process
	Case RZ_PRE_ARTICLE_LIST:
		Call ArticleList(0)
	Case RZ_PRE_PRODUCT_LIST:
		Call ProductList(0)
	Case RZ_PRE_PHOTO_LIST:
		Call PhotoList(0)
	Case RZ_PRE_TYPE_SHOW:
		Call TypeShow(0)
	Case RZ_PRE_ARTICLE_SHOW:
		Call ArticleShow(0)
	Case RZ_PRE_PRODUCT_SHOW:
		Call ProductShow(0)
	Case RZ_PRE_PHOTO_SHOW:
		Call PhotoShow(0)
	Case RZ_PRE_SPECIAL_LIST:
		Call SpecialList(0)
	Case RZ_PRE_SPECIAL_SHOW:
		Call SpecialShow(0)
	Case RZ_PRE_GUESTBOOK_LIST:
		Call GuestbookList(0)
	Case RZ_PRE_GUESTBOOK_SHOW:
		Call GuestbookShow(0)
	Case RZ_PRE_JOB_LIST:
		Call JobList(0)
	Case RZ_PRE_JOB_SHOW:
		Call JobShow(0)
	Case RZ_PRE_FRIENDLINK_LIST:
		Call FriendLink(0)
	Case RZ_PRE_COMMENT_SHOW:
		Call CommentShow(0)
	Case RZ_PRE_MAP:
		Call MAP(0)
	Case Else
		If app("rz_static")=1 Then
			Dim slang
			slang=htmlencode(request.querystring("lang"))
			If slang<>"" Then 
			response.redirect("index"&slang&".html")
			else
			response.redirect("index.html")
			End if
		Else 
			Call Default(0)
		End If 
End Select 
%>
<%Call Terminal()%>
